.IMPORTZP ptr1, ptr2
.IMPORT popax, popa
.CODE
.EXPORT _copchar = *
	sta ptr1
	stx ptr1+1
	jsr popa
	cmp #1
	php
	jsr popa 
	plp
	jmp in
.EXPORT copchar = *
	sta ptr1
	stx ptr1+1

	tya

in:	
	pha
charbankhi =*+1
	ldx #$d0>>4
	stx ptr2+1
	rol ptr2+1
	asl
	rol ptr2+1
	asl
	rol ptr2+1
	asl
	rol ptr2+1
	sta ptr2
	
	lda 1
	pha
	lda #$33
	sta 1
	
	ldy #7
cc:
	lda (ptr2),y
	sta (ptr1),y
	dey
	bpl cc
	
	pla
	sta 1
	pla
	tay ;keep charnumber
	
	lda ptr1 ;Rückgabewerte: a/x/y
	clc
	adc #8
	sta ptr1
	bcc :+
	inc ptr1+1
:	
	ldx ptr1+1
	rts
	